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/* Pseudocode for fvt apparatus */ 

^include <pthread.h> 
^include <stdio.h> 

/* This is the initial thread routine */ 
void* compute_thread(void*); 

/* This is the lock for thread synchronization */ 
pthread_mutex_t my_sync; 

/* This is the condition variable for task order control */ 
pthread_cond_t rx; 

/* This is the Boolean */ 
int thread_done = FALSE; 

main() 

/* This is data describing the thread created */ 
pthread_t tid; 
pthread_attr_t attr; 

/* Start of executable */ 

/* Initialize the thread attributes */ 
pthread_attr_init(<8cattr); 

/* initialize the mutex (default attributes) */ 
pthread_mutex_init(<Scmy_sync, NULL); 

/* initialize the condition variable (default attributes) */ 
pthread_cond_init(&rx, NULL); 
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/* Create another thread. The Thread ID is returned in &tid */ 
/* The last parameter is passed to the thread function */ 

while (the file containing the testcases for a particular 
layer is not empty do the following) 

1 

pthread_create (&tid, &attr, compute. thread, invoke_perlscript); 

/* wait until the thread does its work */ 
ptrhead_mutex_lock(&my_sync); 

while (!thread_done) pthread_cond_wait (&rx,&my_sync); 

/* When we get here, the thread has been executed */ 
printf(thread); 

printf("\n"); , v 

pthread_mutex_unlock(&my_sync); 

exit(O); 

\ /* end of do while 

\ /* end of main routine 

/* The thread to be run by create_thread */ 
void* compute_thread(void* invoke_perlscript) 

^/* Lock the mutex when its our turn */ 
pthread_mutex_lock(<5cmy_sync); 

invoke_perlscript 

/* set the predicate and signal the other thread */ 
thread_done = TRUE: 
pthread_cond_signal(<8emy_sync); 
pthread_mutex_unlock(<Scmy_sync); 

return; 

\ 
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